home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 12 / CU Amiga Magazine's Super CD-ROM 12 (1997)(EMAP Images)(GB)[!][issue 1997-07].iso / CUCD / Games / BoulderDäsh / Install / BoulderDäsh.install next >
Text File  |  1997-04-14  |  25KB  |  629 lines
  1. ; $VER: BoulderDäsh.install 3.56 (24.03.97)
  2. ; Install script for BoulderDäsh (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. ;(DEBUG)
  7. (SET #ApplicationName "BoulderDäsh")
  8. (SET #ApplicationDir "sys:")
  9. (SET #ApplicationDir1 "work:")
  10. (SET #ApplicationDir2 "t:")
  11. (SET #ApplicationDir3 "game:")
  12. (SET #ApplicationDir4 "work:games")
  13. (SET #ArchiveDir "/")
  14. (SET #Language -1)
  15. (SET #Documents -1)
  16. (SET #ApplicationKeyfile (CAT #ApplicationName ".key"))
  17.  
  18. ;=============================================================================
  19. ; German strings
  20.  
  21. (IF (= @language "deutsch")
  22. (
  23. (SET default_lang 2)
  24.  
  25. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  26. (SET #bad-installer
  27. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  28.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  29.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  30.      "Wenn Sie fortfahren, wird eine Vollinstallation vorgenommen, das heißt\n"
  31.      "es werden alle Kataloge,Anleitungen und die OS2.0+ Version installiert.\n"
  32.      "%s ist auch dann voll einsatzfähig!"
  33. ))
  34.  
  35. (SET #App-InstallMsg
  36. (CAT "\n\%s Installationsskript.\n"
  37.         "Dieses Skript installiert %s auf Ihrem Amiga.\n\n"
  38.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  39.         " über den Vertrieb von %s.\n\n"
  40.         "%s © 1987-97 Guido Mersmann\n"
  41.         "All Rechte reserviert."
  42. ))
  43.  
  44. (SET #App-Where
  45. (CAT "Wo möchten Sie %s installieren ?\n"
  46.         "(Ein Verzeichnis wird angelegt)"
  47. ))
  48.  
  49. (SET #App-Update
  50. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  51.         " Verzeichnis. Wenn Sie fortfahren,"
  52.         " bestätigen Sie, daß Sie die alte %s-Installation"
  53.         " mit der neuesten Version updaten wollen.\n"
  54.         "Verschiedene %s-Dateien (z.B Prefs) werden falls nötig überschrieben!"
  55. ))
  56.  
  57. (SET #App-Main "Welche Version von %s möchten Sie installieren?")
  58. (SET #App-Main-help
  59. (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  60.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  61.      " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß"
  62.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  63.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  64.      " weiteren Speicher sparen."
  65. ))
  66.  
  67. (SET #App-Language "Welche Sprachen sollen installiert werden ?")
  68.  
  69. (SET #App-Language-help
  70. (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen"
  71.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  72.          " nur die Sprachen anwählen, die sie benötigen"
  73.          " Haken Sie also einfach die Sprachen ab, die Sie"
  74.          " Ihrem System zugänglich machen wollen."
  75.           @askoptions-help
  76. ))
  77.  
  78. (SET #App-Docs "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  79.  
  80. (SET #startup-prompt    "Es müssen zu S:User-Startup einige Eintragungen für %s hinzugefügt werden:\n\n%s")
  81.  
  82. (SET #Rename-msg "Verschiebe Dateien in neue Verzeichnisse!\n\nDas kann einige Zeit Dauern!")
  83.  
  84. (SET #App-Exit "\n%s installiert !!")
  85.  
  86.  
  87. ))
  88.  
  89. ;=============================================================================
  90. ; English strings
  91.  
  92. (IF (<> @language "deutsch")
  93. (
  94. (SET default_lang 4)
  95.  
  96. (SET #bad-kick "You must have at least Workbench 2.0+")
  97. (SET #bad-installer
  98. (CAT "You have an old version of the program 'Installer' "
  99.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  100.      "Please check your configuration!\n\n"
  101.      "If you proceed the whole archive will be installed.\n"
  102.      "%s will work without any restrictions!"
  103. ))
  104.  
  105. (SET #App-InstallMsg
  106. (CAT "\n\%s installation script.\n"
  107.         "This script installs %s on your Amiga.\n\n"
  108.         "Read the DOK-file for more information\n"
  109.         " on the distribution of %s.\n\n"
  110.         "%s © 1995-96 Guido Mersmann\n"
  111.         "All rights reserved."
  112. ))
  113.  
  114. (SET #App-Where
  115. (CAT "Where would you like to install %s ?\n"
  116.         "(A drawer will be created)"
  117. ))
  118.  
  119. (SET #App-Update
  120. (CAT "\nA %s drawer does already exist in the selected "
  121.         " directory. By selecting \"Proceed\", you"
  122.         " indicate that you want to update the %s"
  123.         " installation with the most recent version.\n"
  124.         "Several %s specific files will be overwritten!"
  125. ))
  126.  
  127. (SET #App-Main "Which %s version should be installed ?")
  128. (SET #App-Main-help
  129. (CAT "The OS2.0+ version should only be used on Systems with OS2."
  130.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  131.      " Special OS3.0+ functions are used to save more memory."
  132. ))
  133.  
  134. (SET #App-Language "Which languages should be installed ?")
  135. (SET #App-Language-help
  136. (CAT "\nThe Amiga can be operated in many different"
  137.           " languages."
  138.           "To reduce the amount of space consumed by the"
  139.           " language files, you can select to have only the"
  140.           " files of specific languages copied.\n\n"
  141.           "Simply check the boxes of the languages you wish"
  142.           " to have available on your system.\n\n"
  143.           @askoptions-help
  144. ))
  145.  
  146. (SET #App-Docs "Which Amiga-guide files should be installed ?")
  147.  
  148. (SET #startup-prompt    "Some lines need to be added to S:User-Startup for %s\n\n%s")
  149.  
  150. (SET #Rename-msg "Moving files to new directories!\n\nThis may take a while!")
  151.  
  152.  
  153. (SET #App-Exit "\n%s installed !!")
  154.  
  155.  
  156. ))
  157. ;----------------------------------------------------------------------------
  158. ;----------------------------------------------------------------------------
  159. ;       P_Requirements
  160. ;----------------------------------------------------------------------------
  161. ;----------------------------------------------------------------------------
  162. (PROCEDURE P_Requirements
  163. ; Workbench 37 or better required
  164. (IF (< (/ (getversion) 65536) 37)
  165. (
  166.   (abort #bad-kick)
  167. )
  168. )
  169. ; Installer 42.9 or better required
  170. (if (< @installer-version 2752521)
  171.   (
  172. (user 2)
  173.     (message (#bad-installer #ApplicationName))
  174.     (welcome)
  175.  
  176. ;---- Simple Copy all ask
  177. (SET #ApplicationDir
  178.         (TACKON
  179.                 (ASKDIR
  180.                         (PROMPT (#App-Where #ApplicationName))
  181.                         (HELP @askdir-help)
  182.                         (default #ApplicationDir)
  183.                 )
  184.                 #ApplicationName
  185.         )
  186. )
  187. (MAKEDIR #ApplicationDir (INFOS))
  188.                    (COPYFILES
  189.         (SOURCE "/")
  190.         (DEST #ApplicationDir)
  191.         (HELP @copyfiles-help)
  192.         (OPTIONAL <force>)
  193.         (ALL)
  194.         (INFOS)
  195.                    )
  196. (STARTUP #ApplicationName
  197.      (SET #dummy (cat "Path add Path " #ApplicationDir))
  198.       (HELP @startup-help)
  199.       (PROMPT (#startup-prompt #ApplicationName #dummy))
  200.       ;(COMMAND #dummy)
  201. )
  202.     (exit (quiet))
  203.   )
  204. )
  205. ) ;PROCEDURE
  206. ;----------------------------------------------------------------------------
  207. ;----------------------------------------------------------------------------
  208. ;       Ask for Catalogs
  209. ;----------------------------------------------------------------------------
  210. ;----------------------------------------------------------------------------
  211. (PROCEDURE P_AskCatalogs #Language
  212.  
  213. (SET #Dummy     (ASKOPTIONS
  214.                 (PROMPT #App-Language)
  215.                 (HELP #App-Language-help)
  216.                 (CHOICES
  217.                         "English"
  218.                         "Deutsch")
  219.                 (DEFAULT #Language)
  220.         )
  221. )
  222. ) ;PROCEDURE
  223. ;----------------------------------------------------------------------------
  224. ;----------------------------------------------------------------------------
  225. ;       Copy Selected Catalogs
  226. ;----------------------------------------------------------------------------
  227. ;----------------------------------------------------------------------------
  228. (PROCEDURE P_CopyCatalogs #Language
  229. (SET n 0)
  230. (SET #DestinationRoot (TACKON #ApplicationDir "Catalogs"))
  231. (SET #SourceRoot (TACKON #ArchiveDir "Catalogs"))
  232. (MAKEDIR #DestinationRoot)
  233.  
  234. (while (< n 2)
  235.         (SET #Dummy (SELECT n "english" "deutsch"))
  236.         (
  237.                 (IF (IN #Language n)
  238.                 (
  239.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  240.                         (COPYFILES
  241.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  242.                                 (DEST (TACKON #DestinationRoot #Dummy))
  243.                                 (HELP @copyfiles-help)
  244.                                 (ALL)
  245.                         )
  246.                 )
  247.                 )
  248.         )
  249. (SET n (+ n 1))
  250. )
  251. ) ;PROCEDURE
  252. ;----------------------------------------------------------------------------
  253. ;----------------------------------------------------------------------------
  254. ;       Ask for docs
  255. ;----------------------------------------------------------------------------
  256. ;----------------------------------------------------------------------------
  257. (PROCEDURE P_AskDocs #Documents
  258. (SET #Dummy             (ASKOPTIONS
  259.                         (PROMPT #App-Docs)
  260.                         (HELP @askoptions-help)
  261.                         (CHOICES
  262.                                 "english"
  263.                                 "deutsch"
  264.                         )
  265.                         (DEFAULT #Documents)
  266.                   )
  267. )
  268. ) ;PROCEDURE
  269. ;----------------------------------------------------------------------------
  270. ;----------------------------------------------------------------------------
  271. ;       Copy docs
  272. ;----------------------------------------------------------------------------
  273. ;----------------------------------------------------------------------------
  274. (PROCEDURE P_CopyDocs #Documents
  275. (SET n 0)
  276. (SET #DestinationRoot (TACKON #ApplicationDir "Docs"))
  277. (SET #SourceRoot (TACKON #ArchiveDir "Docs"))
  278. (MAKEDIR #DestinationRoot)
  279.  
  280. (while (< n 2)
  281.         (SET #Dummy (SELECT n
  282.                 "english"
  283.                 "deutsch"
  284.         )
  285.         )
  286.         (
  287.                 (IF (IN #Documents n)
  288.                 (
  289.         (MAKEDIR (TACKON #DestinationRoot #Dummy))
  290.                         (COPYFILES
  291.                                 (SOURCE (TACKON #SourceRoot #Dummy))
  292.                                 (DEST (TACKON #DestinationRoot #Dummy))
  293.                                 (HELP @copyfiles-help)
  294.                                 (INFOS)
  295.                                 (ALL)
  296.                         )
  297.                 )
  298.                 )
  299.         )
  300. (SET n (+ n 1))
  301. )
  302. ) ;PROCEDURE
  303. ;----------------------------------------------------------------------------
  304. ;----------------------------------------------------------------------------
  305. ;       Copy_Dir (Dir)
  306. ;----------------------------------------------------------------------------
  307. ;----------------------------------------------------------------------------
  308. (PROCEDURE P_CopyDir #Dummy
  309.  
  310. (SET #DestinationRoot (TACKON #ApplicationDir #Dummy))
  311. (SET #SourceRoot (TACKON #ArchiveDir #Dummy))
  312. (MAKEDIR #DestinationRoot)
  313.  
  314.                    (COPYFILES
  315.         (SOURCE #SourceRoot)
  316.         (DEST #DestinationRoot)
  317.         (HELP @copyfiles-help)
  318.         (OPTIONAL <force>)
  319.         (ALL)
  320.         (INFOS)
  321.                    )
  322. ) ;PROCEDURE
  323. ;----------------------------------------------------------------------------
  324. ;----------------------------------------------------------------------------
  325. ;       Copy_File (Name)
  326. ;----------------------------------------------------------------------------
  327. ;----------------------------------------------------------------------------
  328. (PROCEDURE P_CopyFile #Dummy
  329.                    (COPYFILES
  330.         (SOURCE (TACKON #ArchiveDir #Dummy))
  331.         (DEST #ApplicationDir)
  332.         (HELP @copyfiles-help)
  333.         (OPTIONAL <force>)
  334.         (ALL)
  335.         (INFOS)
  336.                    )
  337. ) ;PROCEDURE
  338. ;----------------------------------------------------------------------------
  339. ;----------------------------------------------------------------------------
  340. ;       GetApplicationDir
  341. ;----------------------------------------------------------------------------
  342. ;----------------------------------------------------------------------------
  343. (PROCEDURE P_GetApplicationDir
  344. (SET #Dummy #ApplicationDir)
  345. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  346. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  347. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  348. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  349.  
  350. (SET #ApplicationDir
  351.         (TACKON
  352.                 (ASKDIR
  353.                         (PROMPT (#App-Where #ApplicationName))
  354.                         (HELP @askdir-help)
  355.                         (default #Dummy)
  356.                 )
  357.                 #ApplicationName
  358.         )
  359. )
  360. (SET @default-dest #ApplicationDir)
  361. ) ;PROCEDURE
  362. ;----------------------------------------------------------------------------
  363. ;----------------------------------------------------------------------------
  364. ;       P_Update
  365. ;----------------------------------------------------------------------------
  366. ;----------------------------------------------------------------------------
  367. (PROCEDURE P_Update
  368. (if (= (exists #ApplicationDir) 2)
  369.         (message (#App-Update #ApplicationName #ApplicationName #ApplicationName))
  370. )
  371. ) ;PROCEDURE
  372. ;----------------------------------------------------------------------------
  373. ;----------------------------------------------------------------------------
  374. ;       P_AskBinary
  375. ;----------------------------------------------------------------------------
  376. ;----------------------------------------------------------------------------
  377. (PROCEDURE P_AskBinary
  378. (set #Dummy (/ (getversion) 65536))
  379.  
  380. (if (= #Dummy 37) (set #Binary 0))
  381. (if (= #Dummy 38) (set #Binary 1))
  382. (if (> #Dummy 38) (set #Binary 2))
  383.  
  384. (set #Binary (askchoice
  385.         (prompt (#App-Main #ApplicationName))
  386.         (help (#App-Main-help #ApplicationName))
  387.         (choices
  388.         "OS2.0+"
  389.                         "OS2.1+"
  390.                         "OS3.0+"
  391.                         )
  392.         (default #Binary)
  393.             )
  394. )
  395. ) ;PROCEDURE
  396. ;----------------------------------------------------------------------------
  397. ;----------------------------------------------------------------------------
  398. ;       P_CopyBinary
  399. ;----------------------------------------------------------------------------
  400. ;----------------------------------------------------------------------------
  401. (PROCEDURE P_CopyBinary #Dummy
  402.  
  403. (set #BinaryName (SELECT #Binary #Dummy (CAT "Bin/" #Dummy "_OS21") (CAT "Bin/" #Dummy "_OS30")))
  404. (copyfiles
  405.         (source (TACKON #ArchiveDir #BinaryName) (infos))
  406.         (dest #ApplicationDir)
  407.         (newname #Dummy)
  408.         (help @copyfiles-help)
  409.         (optional <force>)
  410. )
  411. ) ;PROCEDURE
  412. ;----------------------------------------------------------------------------
  413. ;----------------------------------------------------------------------------
  414. ;       P_KeyFile
  415. ;----------------------------------------------------------------------------
  416. ;----------------------------------------------------------------------------
  417. (PROCEDURE P_KeyFile
  418.  
  419. (SET #Dummy (TACKON (TACKON #ArchiveDir "Keyfile") #ApplicationKeyfile))
  420.  
  421. (if (<> (exists #Dummy (noreq)) 0) ((P_CopyDir "KeyFile"))
  422. )
  423. ) ;PROCEDURE
  424. ;----------------------------------------------------------------------------
  425. ;----------------------------------------------------------------------------
  426. ;       P_CopyArchiveIcon
  427. ;----------------------------------------------------------------------------
  428. ;----------------------------------------------------------------------------
  429. (PROCEDURE P_CopyArchiveIcon
  430.                    (COPYFILES
  431.         (SOURCE (CAT (CAT (TACKON #ArchiveDir "/") #ApplicationName) ".info"))
  432.         (DEST (TACKON #ApplicationDir "/"))
  433.         (HELP @copyfiles-help)
  434.                    )
  435. ) ;PROCEDURE
  436. ;----------------------------------------------------------------------------
  437. ;----------------------------------------------------------------------------
  438. ;       P_Rename
  439. ;----------------------------------------------------------------------------
  440. ;----------------------------------------------------------------------------
  441. (PROCEDURE P_Rename #Dummy #Dummy2
  442. (if (= (exists (TACKON #ApplicationDir #Dummy)) 2)
  443.         (rename (TACKON #ApplicationDir #Dummy) (TACKON #ApplicationDir #Dummy2))
  444. )
  445. ) ;PROCEDURE
  446. ;----------------------------------------------------------------------------
  447. ;----------------------------------------------------------------------------
  448. ;       P_RealRename
  449. ;----------------------------------------------------------------------------
  450. ;----------------------------------------------------------------------------
  451. (PROCEDURE P_RealRename #Dummy #Dummy2
  452.    (Set #Dummy (TACKON #ApplicationDir #Dummy))
  453.    (Set #Dummy2 (TACKON #ApplicationDir #Dummy2))
  454.    (set #Dummy (CAT "rename " #Dummy " " #Dummy2))
  455.         (run #Dummy)
  456. ) ;PROCEDURE
  457. ;----------------------------------------------------------------------------
  458. ;----------------------------------------------------------------------------
  459. ;       MAIN
  460. ;----------------------------------------------------------------------------
  461. ;----------------------------------------------------------------------------
  462. (P_Requirements)
  463. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  464. (welcome)
  465.  
  466.  (SET #ApplicationDir (P_GetApplicationDir))
  467.  
  468. (COMPLETE 1)
  469.  (P_Update)
  470.  (SET #Binary (P_AskBinary))
  471. (COMPLETE 2)
  472.  (SET #Language (P_AskCatalogs #Language))
  473. (COMPLETE 3)
  474.  (SET #Documents (P_AskDocs #Documents))
  475. (COMPLETE 4)
  476.  
  477.  
  478.  (Working #Rename-msg)
  479. ;***** Delete old Data and Prefs
  480. (MAKEDIR #ApplicationDir (INFOS))
  481. (MAKEDIR (TACKON #ApplicationDir "Prefs") (INFOS))
  482. (MAKEDIR (TACKON #ApplicationDir "GraphicSets/User") (INFOS))
  483. (MAKEDIR (TACKON #ApplicationDir "SampleSets/User") (INFOS))
  484. (MAKEDIR (TACKON #ApplicationDir "CharacterSets/User") (INFOS))
  485. (MAKEDIR (TACKON #ApplicationDir "MusicSets/User") (INFOS))
  486. (MAKEDIR (TACKON #ApplicationDir "Games/User") (INFOS))
  487. (MAKEDIR (TACKON #ApplicationDir "Caves/User") (INFOS))
  488.  
  489. (DELETE (TACKON #ApplicationDir "Games/BDash_I.Game"))
  490. (DELETE (TACKON #ApplicationDir "Scores/BDash_I.Game"))
  491. (DELETE (TACKON #ApplicationDir "SampleSets/Classic") (ALL))
  492. (DELETE (TACKON #ApplicationDir "BoulderDäsh.prefs"))
  493. (DELETE (TACKON #ApplicationDir "Prefs/BoulderDäsh.prefs"))
  494. (DELETE (TACKON #ApplicationDir "Title/BoulderDäshTitle.mus"))
  495.  
  496.  (P_Rename "Graphics" "GraphicSets")
  497.  (P_Rename "Graphics.info" "GraphicSets.info")
  498.  (P_Rename "Fonts" "CharacterSets")
  499.  (P_Rename "Fonts.info" "CharacterSets.info")
  500.  
  501. ;-- Create GraphicSet Dirs
  502.  (MAKEDIR (TACKON #ApplicationDir "GraphicSets/Standard") (INFOS))
  503.  (MAKEDIR (TACKON #ApplicationDir "GraphicSets/JoonaPalaste") (INFOS))
  504. ;--- Standard Graphics!
  505.  (P_RealRename "GraphicSets/ClassicC64.gfx#?" "GraphicSets/Standard/")
  506.  (P_RealRename "GraphicSets/ClassicC64Pumpkin.gfx#?" "GraphicSets/Standard/")
  507.  (P_RealRename "GraphicSets/ClassicAmiga.gfx#?" "GraphicSets/Standard/")
  508.  (P_RealRename "GraphicSets/FutureC64.gfx#?" "GraphicSets/Standard/")
  509.  (P_RealRename "GraphicSets/FutureAmiga.gfx#?" "GraphicSets/Standard/")
  510. ;--- Now Joona´s Graphics
  511.  (P_RealRename "GraphicSets/Western.gfx#?" "GraphicSets/JoonaPalaste/")
  512.  (P_RealRename "GraphicSets/Spooky.gfx#?" "GraphicSets/JoonaPalaste/")
  513.  (P_RealRename "GraphicSets/Space.gfx#?" "GraphicSets/JoonaPalaste/")
  514.  (P_RealRename "GraphicSets/Psychedelic.gfx#?" "GraphicSets/JoonaPalaste/")
  515.  (P_RealRename "GraphicSets/Moria.gfx#?" "GraphicSets/JoonaPalaste/")
  516.  (P_RealRename "GraphicSets/Medical.gfx#?" "GraphicSets/JoonaPalaste/")
  517.  (P_RealRename "GraphicSets/LCD.gfx#?" "GraphicSets/JoonaPalaste/")
  518.  (P_RealRename "GraphicSets/JokeAmiga.gfx#?" "GraphicSets/JoonaPalaste/")
  519.  (P_RealRename "GraphicSets/Egyptian.gfx#?" "GraphicSets/JoonaPalaste/")
  520.  (P_RealRename "GraphicSets/Computer.gfx#?" "GraphicSets/JoonaPalaste/")
  521.  (P_RealRename "GraphicSets/Black&White.gfx#?" "GraphicSets/JoonaPalaste/")
  522.  (P_RealRename "GraphicSets/UnderWater.gfx#?" "GraphicSets/JoonaPalaste/")
  523.  (P_RealRename "GraphicSets/PacMan.gfx#?" "GraphicSets/JoonaPalaste/")
  524.  (P_RealRename "GraphicSets/Neon2.gfx#?" "GraphicSets/JoonaPalaste/")
  525.  (P_RealRename "GraphicSets/Neon1.gfx#?" "GraphicSets/JoonaPalaste/")
  526.  (P_RealRename "GraphicSets/Jewel.gfx#?" "GraphicSets/JoonaPalaste/")
  527.  (P_RealRename "GraphicSets/Funky.gfx#?" "GraphicSets/JoonaPalaste/")
  528.  (P_RealRename "GraphicSets/Fantasy.gfx#?" "GraphicSets/JoonaPalaste/")
  529.  (P_RealRename "GraphicSets/Arctic.gfx#?" "GraphicSets/JoonaPalaste/")
  530.  (P_RealRename "GraphicSets/Techno.gfx#?" "GraphicSets/JoonaPalaste/")
  531. ;+++ All other GFX files are User
  532.  (P_RealRename "GraphicSets/#?.gfx#?" "GraphicSets/User/")
  533. ;--- Create CharacterSet Dirs
  534.  (MAKEDIR (TACKON #ApplicationDir "CharacterSets/Standard") (INFOS))
  535.  (P_RealRename "CharacterSets/ClassicAmiga.fnt#?" "CharacterSets/Standard")
  536.  (P_RealRename "CharacterSets/ClassicC64.fnt#?" "CharacterSets/Standard")
  537.  (P_RealRename "CharacterSets/FutureC64.fnt#?" "CharacterSets/Standard")
  538.  (P_RealRename "CharacterSets/FutureAmiga.fnt#?" "CharacterSets/Standard")
  539. ;+++ All other FNT files are User
  540.  (P_RealRename "CharacterSets/#?.fnt#?" "CharacterSets/User/")
  541. ;--- Create SampleSet Dirs
  542.  (MAKEDIR (TACKON #ApplicationDir "SampleSets/Standard") (INFOS))
  543.  (P_RealRename "SampleSets/ClassicC64#?" "SampleSets/Standard/")
  544.  (P_RealRename "SampleSets/Classic800XL#?" "SampleSets/Standard/")
  545.  (P_RealRename "SampleSets/Future#?" "SampleSets/Standard/")
  546. ;--- Create MusicSet Dir
  547.  (MAKEDIR (TACKON #ApplicationDir "MusicSets/Standard") (INFOS))
  548.  (P_RealRename "MusicSets/TitleAmiga.mus#?" "MusicSets/Standard/")
  549.  (P_RealRename "MusicSets/TitleClassic.mus#?" "MusicSets/Standard/")
  550.  (P_RealRename "MusicSets/InGame1.mus#?" "MusicSets/Standard/")
  551.  (P_RealRename "MusicSets/InGame2.mus#?" "MusicSets/Standard/")
  552.  (P_RealRename "MusicSets/InGame3.mus#?" "MusicSets/Standard/")
  553.  (P_RealRename "MusicSets/InGame4.mus#?" "MusicSets/Standard/")
  554. ;+++ All other MUS files are User
  555.  (P_RealRename "MusicSets/#?.mus#?" "MusicSets/User/")
  556. ;--- Create Game Dirs
  557.  (MAKEDIR (TACKON #ApplicationDir "Games/BoulderDash") (INFOS))
  558.  (P_RealRename "Games/BDash_#?.game" "Games/BoulderDash/")
  559.  (MAKEDIR (TACKON #ApplicationDir "Games/BlunderDash") (INFOS))
  560.  (P_RealRename "Games/Blunder#?.game" "Games/BlunderDash/")
  561.  (MAKEDIR (TACKON #ApplicationDir "Games/BoulderHead") (INFOS))
  562.  (P_RealRename "Games/BoulderHead#?.game" "Games/BoulderHead/")
  563.  (MAKEDIR (TACKON #ApplicationDir "Games/NoOne") (INFOS))
  564.  (P_RealRename "Games/Noone#?.game" "Games/NoOne/")
  565.  (MAKEDIR (TACKON #ApplicationDir "Games/MegaBD") (INFOS))
  566.  (P_RealRename "Games/MegaBD_#?.game" "Games/MegaBD/")
  567.  (MAKEDIR (TACKON #ApplicationDir "Games/Miscellaneus") (INFOS))
  568.  (P_RealRename "Games/BoulderDäsh.game" "Games/Miscellaneus/")
  569.  (P_RealRename "Games/Rockford'sRevenge.game" "Games/Miscellaneus/")
  570.  (P_RealRename "Games/ConstructionKit.game" "Games/Miscellaneus/")
  571.  (P_RealRename "Games/TrueBD_1.game" "Games/Miscellaneus/")
  572. ;+++ All other game files are User
  573.  (P_RealRename "Games/#?.game" "Games/User/")
  574. ;--- Create Cave Dirs
  575.  (MAKEDIR (TACKON #ApplicationDir "Caves/BoulderDäsh") (INFOS))
  576.  (P_RealRename "Caves/UpSideDown.int" "Caves/BoulderDäsh/")
  577.  (P_RealRename "Caves/Little.int" "Caves/BoulderDäsh/")
  578.  (P_RealRename "Caves/LittleEarthquake.cav" "Caves/BoulderDäsh/")
  579.  (P_RealRename "Caves/Demo.cav" "Caves/BoulderDäsh/")
  580. ;+++ All other cave files are User
  581.  (P_RealRename "Caves/#?.cav" "Caves/User/")
  582.  (P_RealRename "Caves/#?.int" "Caves/User/")
  583. ;---
  584. (COMPLETE 10)
  585.  (P_CopyDir "Games")
  586. (COMPLETE 20)
  587.  (P_CopyDir "Caves")
  588. (COMPLETE 35)
  589.  (P_CopyDir "Title")
  590. (COMPLETE 45)
  591.  (P_CopyDir "Scores")
  592. (COMPLETE 55)
  593.  (P_CopyDir "SampleSets")
  594. (COMPLETE 65)
  595.  (P_CopyDir "MusicSets")
  596. (COMPLETE 75)
  597.  (P_CopyDir "GraphicSets")
  598. (COMPLETE 85)
  599.  (P_CopyDir "CharacterSets")
  600.  (P_CopyDir "ColorSets")
  601. (COMPLETE 97)
  602.  (P_CopyBinary #ApplicationName)
  603.  (P_CopyFile (CAT #ApplicationName ".info"))
  604.  (P_CopyCatalogs #Language)
  605.  (P_CopyDocs #Documents)
  606.  
  607.  (P_CopyArchiveIcon)
  608.   (P_CopyFile "Docs.info")
  609.   (P_CopyFile "GraphicSets.info")
  610.   (P_CopyFile "CharacterSets.info")
  611.   (P_CopyFile "SampleSets.info")
  612.   (P_CopyFile "MusicSets.info")
  613.   (P_CopyFile "WARNING!!!")
  614.   (P_CopyFile "WARNUNG!!!")
  615.  (P_Keyfile)
  616. ;--- CleanUp
  617. (DELETE (TACKON #ApplicationDir "Title.info"))
  618. (DELETE (TACKON #ApplicationDir "Prefs.info"))
  619. (DELETE (TACKON #ApplicationDir "Games.info"))
  620. (DELETE (TACKON #ApplicationDir "Caves.info"))
  621. (DELETE (TACKON #ApplicationDir "Scores.info"))
  622. (DELETE (TACKON #ApplicationDir "KeyFile.info"))
  623. (DELETE (TACKON #ApplicationDir "ColorSets.info"))
  624. (DELETE (TACKON #ApplicationDir "Install.info"))
  625. (DELETE (TACKON #ApplicationDir "Catalogs.info"))
  626. (run "avail Flush")
  627. (COMPLETE 100)
  628. ;(exit #App-exit)
  629.